﻿Public Class MajorDegree

    Private Major_ID As String
    Private Degree_ID As String
    Private Major_Title As String
    Private maxCredit As Integer
    Private minCredit As Integer

    'Start Jawad code
    Public Sub New()
        Major_ID = ""
        Degree_ID = ""
        Major_Title = ""
        maxCredit = 0
        minCredit = 0
    End Sub

    Public Property MajorID() As String
        Get
            Return Major_ID
        End Get
        Set(ByVal value As String)
            Major_ID = value
        End Set
    End Property

    Public Property DegreeID() As String
        Get
            Return Degree_ID
        End Get
        Set(ByVal value As String)
            Degree_ID = value
        End Set
    End Property

    Public Property MajorTitle() As String
        Get
            Return Major_Title
        End Get
        Set(ByVal value As String)
            Major_Title = value
        End Set
    End Property

    Public Property MinCreditRequired As Integer
        Get
            Return minCredit
        End Get
        Set(value As Integer)
            minCredit = value
        End Set
    End Property

    Public Property MaxCreditRequired As Integer
        Get
            Return maxCredit
        End Get
        Set(value As Integer)
            maxCredit = value
        End Set
    End Property

    'end Jawad Code

    'THIS is not wrong, it's just to make the code homogeneous and it's easier to code and use properties using intellisense snippets


    'Private Sub setMajor(ByRef majorid As Integer, ByRef degreeid As String, ByRef deptid As Integer)
    '    Major_ID = majorid
    '    Degree_ID = degreeid
    '    Dept_ID = degreeid
    'End Sub

    'Private Function getMajor()
    '    Return Major_ID
    'End Function

    'Private Function getDegree()
    '    Return Degree_ID
    'End Function

    'Private Function getDept()
    '    Return Dept_ID
    'End Function

End Class
